From: Kenichi Handa <handa@m17n.org>
Date: Wed, 4 Jun 1997 00:56:08 +0000 (+0000)
Subject: (casify_object): Fix bug on handling a character
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~80937
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5dd4d40aafb30723b2b474226282cdf39c191bf3;p=emacs.git

(casify_object): Fix bug on handling a character
arguement.
---

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 89d528bcabb..90d09b46ac4 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -48,9 +48,13 @@ casify_object (flag, obj)
       if (INTEGERP (obj))
 	{
 	  c = DOWNCASE (obj);
-	  if (!inword && c == XFASTINT (obj))
-	    c = UPCASE1 (obj);
-	  XSETFASTINT (obj, c);
+	  if (inword)
+	    XSETFASTINT (obj, c);
+	  else if (c == XFASTINT (obj))
+	    {
+	      c = UPCASE1 (obj);
+	      XSETFASTINT (obj, c);
+	    }
 	  return obj;
 	}
       if (STRINGP (obj))